home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD023b.dsk / BLIP IS THE BLAP OF BLEEP.bas < prev    next >
BASIC Source File  |  2003-06-12  |  2KB  |  43 lines
  1. 10  REM APHORISM GENERATOR     
  2. 12  REM BY DR.J.D.ROBERTSON
  3. 15  REM JULY 13,1978 
  4. 17  REM *************************
  5. 20  REM BLIP IS THE BLAP OF BLEEP 
  6. 22  REM *************************
  7. 25  REM ADDITIONS BY M. WELLS 
  8. 27  REM JUNE1983
  9. 30  REM 
  10. 32  DIM X$(25),Y$(25),Z$(25)
  11. 35  REM X$-LIST OF BLIP WORDS  
  12. 36  REM Y$-LIST OF BLAP WORDS 
  13. 37  REM Z$-LIST OF BLEEP WORDS 
  14. 40  FOR I = 1 TO 25
  15. 42  READ X$(I),Y$(I),Z$(I)
  16. 45  NEXT I
  17. 50  TEXT : HOME : VTAB 3: PRINT " GENERATE SAYINGS WITH OBSCURE MEANINGS TO COUNTER THE PERSON THAT ALWAYS USES  APHORISTIC BANALITY SUCH AS- 'NECESSITY IS THE MOTHER OF INVENTION.'"
  18. 55  PRINT : PRINT " THIS PROGRAM WILL HELP YOU. JUST TELL  IT HOW MANY YOU WILL BE NEEDING AND     STAND BACK!-"
  19. 60  PRINT : INPUT "HOW MANY APHORISMS DO YOU WANT TO SEE?";N
  20. 65  FOR I = 1 TO N
  21. 70  REM  SELECT JTH BLIP WORD,KTH BLAP WORD,LTH BLEEP WORD 
  22. 75 J = 1 + INT( RND(1) *25)
  23. 80 K = 1 + INT( RND(1) *25)
  24. 85 L = 1 + INT( RND(1) *25)
  25. 90  PRINT X$(J);" IS THE ";Y$(K);" OF ";Z$(L)
  26. 95  NEXT I
  27. 100  PRINT : PRINT "DO YOU WANT TO SEE SOME MORE? (Y/N)";: GET A$: IF A$ < >"Y"  THEN  PRINT : PRINT : PRINT  CHR$(4)"RUNMENU"
  28. 110  TEXT : HOME : VTAB 3: GOTO 60
  29. 145  REM  BLIP-BLAP-BLEEP WORDS
  30. 150  DATA   SANITY,ANATHEMA,LOVE,AGONY,QUAGMIRE,ARDOR 
  31. 151  DATA DISTRUST,BLIGHT,BEAUTY,POLITICS,HARLOT,HATE
  32. 152  DATA GREED,FRIEND,FILTH,GLUTTONY,MOTHER,EVIL
  33. 153  DATA  HEALTH,FATHER,EXCESS, HYSTERIA,SISTER,FANTASY
  34. 154  DATA  BREVITY,BROTHER,RACISM,CHARITY,ENEMY,LAUGHTER   
  35. 155  DATA  SECURITY,BANDIT,NAIVETE,SCIENCE,HOUSE,APOPLEXY
  36. 156  DATA  CELIBACY,KIDNEY,SADISM,DECENCY,HARPY,LUST
  37. 157  DATA  ABUSE,LAXITIVE,SEX,WEAKNESS,FOLLICLE,LEPROSY
  38. 158  DATA   BRAVERY,REWARD,DECEIT,GENIUS,GENESIS,LOYALTY  
  39. 159  DATA   DEATH,HEART,SUICIDE,ALCOHOL,LIVER,SUCCESS
  40. 160  DATA   VIOLENCE,CURATOR,IDIOCY,APATHY,EUNUCH,PROGRESS  
  41. 161  DATA  MONEY,RESULT,FAILURE,GARBAGE,APEX,RELEASE
  42. 162  DATA  OBESITY,BLADDER,AVARICE
  43. 170  PRINT : PRINT  CHR$(4)"RUN MENU"